home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / Desktop Exec.cpt / Desktop Exec2 / background_2710.txt < prev    next >
Text File  |  1991-10-29  |  6KB  |  287 lines
  1. -- background: 2710 from stack: in
  2. -- bmap block id: 3611
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: File Card
  6. ----- HyperTalk script -----
  7. on closeField
  8.   put the date into field "date"
  9. end closeField
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 00
  15. -- high flags: 0004
  16. -- rect: left=24 top=38 right=157 bottom=267
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 15011
  21. -- text size: 12
  22. -- style flags: 256
  23. -- line height: 16
  24. -- part name: Name and Address
  25.  
  26.  
  27. -- part 6 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=366 top=297 right=331 bottom=399
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Prev
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to prev card
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 7 (button)
  47. -- low flags: 00
  48. -- high flags: 2000
  49. -- rect: left=404 top=297 right=330 bottom=438
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Next
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to next card
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 8 (button)
  66. -- low flags: 00
  67. -- high flags: 2000
  68. -- rect: left=328 top=297 right=331 bottom=362
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Return
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   go to first card
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 11 (field)
  85. -- low flags: 00
  86. -- high flags: 0004
  87. -- rect: left=304 top=38 right=106 bottom=495
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 15011
  92. -- text size: 12
  93. -- style flags: 256
  94. -- line height: 16
  95. -- part name: Phone Number
  96.  
  97.  
  98. -- part 39 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=155 top=297 right=331 bottom=189
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: CATEGORIZE
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   answer "Sort all cards of this stack according to:" with "First Word" or "Last Word" or "Cancel"
  113.   if it is "First Word"
  114.   then sort by first word of first line of field "Name and Address"
  115. else if it is "Last Word"
  116. then sort by last word of first line of field "Name and Address"
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 43 (field)
  122. -- low flags: 00
  123. -- high flags: 0004
  124. -- rect: left=23 top=182 right=268 bottom=268
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 15011
  129. -- text size: 12
  130. -- style flags: 256
  131. -- line height: 16
  132. -- part name: COMMENTS
  133.  
  134.  
  135. -- part 45 (button)
  136. -- low flags: 00
  137. -- high flags: 2000
  138. -- rect: left=79 top=297 right=331 bottom=113
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: new card
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   domenu "new card"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 46 (button)
  155. -- low flags: 00
  156. -- high flags: 2000
  157. -- rect: left=232 top=297 right=331 bottom=300
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Find...
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   domenu "find..."
  169. end mouseUp
  170.  
  171.  
  172. -- part 51 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=117 top=297 right=331 bottom=151
  176. -- title width / last selected line: 65535
  177. -- icon id / first selected line: -15605 / 49931
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Trash this card
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   answer "Are you sure you want to trash this card?" with "Yep!" or "Nope!"
  187.   if it is "Yep!"
  188.   then domenu "delete card"
  189. end mouseUp
  190.  
  191.  
  192. -- part 52 (field)
  193. -- low flags: 00
  194. -- high flags: 0004
  195. -- rect: left=422 top=116 right=134 bottom=496
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 3
  200. -- text size: 10
  201. -- style flags: 0
  202. -- line height: 13
  203. -- part name: DATE
  204.  
  205.  
  206. -- part 53 (button)
  207. -- low flags: 00
  208. -- high flags: 2000
  209. -- rect: left=193 top=297 right=330 bottom=227
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Menu
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   global mbState
  221.   if mbState = 0 then
  222.     show menubar
  223.     put 1 into mbState
  224.   else
  225.     hide menubar
  226.     put 0 into mbState
  227.   end if
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 54 (field)
  233. -- low flags: 00
  234. -- high flags: 0004
  235. -- rect: left=305 top=116 right=134 bottom=362
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 3
  240. -- text size: 9
  241. -- style flags: 0
  242. -- line height: 12
  243. -- part name: time
  244.  
  245.  
  246. -- part 55 (button)
  247. -- low flags: 00
  248. -- high flags: 2000
  249. -- rect: left=469 top=297 right=330 bottom=503
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Quit
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   domenu "quit hypercard"
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 56 (button)
  266. -- low flags: 00
  267. -- high flags: 2000
  268. -- rect: left=311 top=143 right=178 bottom=345
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Call Em'
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   get the selection
  280.   if it is empty then get first line of field "Phone Number"
  281.   if it is empty then ask "Dial what number?"
  282.   if it is not empty then
  283.     dial it
  284.   end if
  285. end mouseUp
  286.  
  287.